home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / utils / condor40.arj / VBBSMOD.TXT < prev    next >
Text File  |  1993-08-18  |  9KB  |  336 lines
  1. Mod by: CONDOR #20 @1205022 VirtualNET
  2. - The On-Line Galleria bbs 205-837-1681  v.32bis
  3.  
  4. S O A R   with the CONDORs!  Here's some bones to pick:
  5.  
  6. This MOD will make VBBS 6.10A  AUTO-DETECT CONDOR.SYS and MENU text
  7. will be displayed according to the HARDWARE  Condor reports to VBBS.
  8.  
  9. For instance  VBBS finds CONDOR and CONDOR says "HEY I'm running VGA analog!"
  10. so VBBS will send out the FILE  LOGIN.CDI (see page 19 in the CONDOR.DOC)
  11. all VBBS CONDOR files will be  filename.CDx  where x=what hardware Condor
  12. reports to VBBS.  You don't have to have CONDOR.SYS installed on the
  13. VBBS local side to have CONDOR graphics online for users!  Just shoot out
  14. the right MENU.CDx and away she goes, heck you could even have Condor graphics
  15. on a C64 bbs! oh no!!! :)  Condor on the BBS side should mostly be used for
  16. SysOp testing of menus he creates.   This mod also includes a PAUSE shutoff
  17. for messages that have a ~ TILDE in the title, this is so great for
  18. GRAPHIC messages, believe me you need it.   OH if VBBS can't find the
  19. MENU.CDx it'll try for .MNU then .ANS .ASC just like it did before.  Like
  20. it doesn't default to .CDE from .CDI menus, it looks for that hardware
  21. menu type only,  then to .MNU .ANS .ASC
  22.  
  23. By the way this MOD looks for CONDOR 4.0+ so if you use some later version
  24. of CONDOR.SYS it will find it but if you use commnds not in CONDOR 4.0
  25. the USER might not be running the latest version of CONDOR.SYS.   You
  26. can make this MOD allow JUST a higher version of CONDOR.SYS by changing
  27. the line of code that contains:
  28.    IF VAL(MID$(condor1$, 2, 3)) < VAL("4.0") THEN
  29. to the latest version of CONDOR.SYS required to RUN your BBS menus,
  30. just change the VAL("4.0") part to match the lowest version of
  31. CONDOR.SYS required for your menus.   If VBBS starts supporting
  32. CONDOR as a standard then maybe you can just set a var in VCONFIG
  33. sure would be nice! :)
  34.  
  35.  
  36.  
  37.  
  38. Time to Take the Highway..... ( It's a old Marshall Tucker song :)
  39.  
  40. ...........................................................................
  41. Phase 1> LOAD up the FILE VBBSTYPE.BAS
  42.               ------------
  43. find a couple of lines that match this:
  44.  
  45. COMMON SHARED dta$, d1 AS database, ps AS pathspecs
  46. COMMON SHARED u1 AS userdat, u2 AS userdat, cf1 AS dbconfig, door AS doors
  47.  
  48. Directly above those lines add this:
  49.  
  50. REM {CONDOR
  51. COMMON SHARED condor, condor1$, cause
  52. REM CONDOR}
  53.  
  54. BTW you don't have to have the lines with REM in them but if you ever want
  55. to take it out, uh uh go hang glide with a hair net!! HAHAHA :)
  56.  
  57. OK now SAVE VBBSTYPE.BAS, that's all the damage we need here.
  58. ..............................................................
  59.  
  60. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  61. Phase 2> LOAD up the file VBBS.BAS
  62.               --------
  63. Search for 3 lines that match this:
  64.  
  65. vgixdet:
  66. IF useransi THEN
  67.   norm$ = ""
  68.  
  69. DIRECTLY ABOVE the vgixdet: line add this chunk of code:
  70.  
  71.  
  72. REM {CONDOR Detect ***********************
  73.   docr
  74.   condor1$ = ""
  75.   condor = 0
  76.   writeln "Checking for CONDOR"
  77.   flush
  78.   a = 0
  79.   outline2 es$ + "{?0:" + es$ + "}" + es$ + "#A"
  80.   t& = TIMER
  81.   DO
  82.     cdcheck
  83.     IF cdchk = 0 THEN EXIT DO
  84.     IF comhit THEN
  85.       condor1$ = condor1$ + CHR$(readchar)
  86.     END IF
  87.   LOOP UNTIL ctime2&(TIMER, t&) > 2 OR LEN(condor1$) = 11
  88.   IF LEN(condor1$) > 10 THEN
  89.    condor = 67
  90.    ansiuser = 1
  91.    REM --- Check for Latest Condor     Version....
  92.    IF VAL(MID$(condor1$, 2, 3)) < VAL("4.0") THEN
  93.    docr
  94.    writeln ("DOWNLOAD the Latest version of CONDOR to use our Condor menus.")
  95.    condor = 0
  96.    docr
  97.    flush
  98.    waits 3
  99.    END IF
  100.    REM -- if we make it here set condor to match video hardware
  101.    REM -- BASE menu extions on MENU.CDx  where x = CHR$(condor)
  102.    IF condor THEN
  103.      condor = ASC(MID$(condor1$, 7, 1))
  104.    END IF
  105.    REM -- **** See what we found
  106.    docr
  107.    condor2$ = "Condor found running video hardware -> " + CHR$(condor)
  108.    writeln (condor2$)
  109.    flush
  110.   END IF
  111.   IF cdchk = 0 THEN RETURN
  112. REM CONDOR} end Detect ******************
  113.  
  114. OK  SAVE VBBS.BAS out we're done with it....
  115. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  116.  
  117.  
  118. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  119. Phase 3> LOAD up VBBS4.BAS
  120.          ---------
  121. In SUB printmsg (a)    you will find these 2 lines:
  122.  
  123. serwrt norm$
  124. serwrt "Title:       " + bold$ + RTRIM$(d1.subject) + norm$
  125.  
  126. DIRECTLY  BELOW those 2 lines ADD this hunk of code:
  127. REM {CONDOR
  128.   cause = u1.page
  129.   condor2$=RTRIM$(d1.subject)
  130.   IF INSTR(1,condor2$,"~") THEN
  131.      pagebrk = 0
  132.      pagesize = 0
  133.      sv$(77) = num1$(pagebrk)
  134.   ELSE
  135.   pagebrk = cause
  136.   pagesize = cause
  137.   sv$(77) = num1$(cause)
  138.   END IF
  139. REM CONDOR}
  140.  
  141. *** OK that's all we do to VBBS4.BAS  SAVE it.
  142. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  143.  
  144.  
  145.  
  146. ########################################################################
  147. Phase 4> LOAD up VBBS6.BAS find this code:
  148.          ---------
  149. CASE 1
  150.   ans$ = "ANSI"
  151. CASE 2
  152.   ans$ = "ANSI Enhanced"
  153. CASE 3
  154.   ans$ = "VGIX"
  155. CASE ELSE
  156. END SELECT
  157.  
  158. DIRECTLY  !BELOW! where it says END SELECT add this:
  159. REM {CONDOR
  160. IF condor THEN
  161.   ans$ = ans$ + "+CONDOR  menus.CD" + CHR$(condor) + " "
  162. END IF
  163. REM CONDOR}
  164.  
  165.  
  166. ...NOW still in VBBS6.BAS find this:
  167.   writeln "2) ANSI"
  168.   writeln "3) ANSI Enhanced"
  169.   writeln "4) VGIX (VGA)"
  170.  
  171. DIRECTLY !BELOW! where it says VGIX (VGA) add:
  172. REM {CONDOR
  173.   writeln "5) Condor menu type"
  174. REM CONDOR}
  175.  
  176. Now just a little below that find:
  177.   writeln "Q) Quit"
  178.   semibox 0, 16
  179.   rl a$, "Q", 5, ":"     <<<<<<<<<---------Was a 4 here change to a 5
  180.   IF cdchk = 0 THEN EXIT SUB
  181.  
  182. **OK now DIRECTLY !BELOW! the line with IF cdchk = 0 THEN EXIT SUB
  183.   ADD this CHUNK of code:
  184.  
  185. REM {CONDOR  ** Set CONDOR MODE
  186.   IF VAL(a$) = 5 THEN
  187.     docr
  188.     semibox 0, 21
  189.     writeln("CONDOR menu types:")
  190.     docr
  191.     writeln("A.  NO Condor menus")
  192.     writeln("C.  CGA color")
  193.     writeln("E.  EGA color")
  194.     writeln("F.  EGA mono")
  195.     writeln("G.  Professional Graphics Controller")
  196.     writeln("H.  VGA mono")
  197.     writeln("I.  VGA color")
  198.     writeln("K.  MCGA digital color")
  199.     writeln("L.  MCGA analog mono")
  200.     writeln("M.  MCGA analog color")
  201.     semibox 0, 21
  202.   getline t$, "", "Enter Menu Type: "
  203.   IF t$<>"" THEN
  204.       condor = ASC(LEFT$(t$, 1))
  205.     IF condor > 90 THEN
  206.       condor = condor - 32
  207.     END IF
  208.     IF condor = 65 THEN
  209.       condor = 0
  210.     END IF
  211.   END IF
  212.   IF cdchk = 0 THEN EXIT SUB
  213.   END IF
  214.  
  215.   IF a$ <> "Q" AND VAL(a$) < 5 THEN
  216. REM CONDOR}
  217.  
  218. >>>Find the LINE that matches this:
  219.  
  220. IF a$ <> "Q" THEN
  221.  
  222. It MUST be removed, it'll be right below the chunk of CONDOR code you just
  223. added.  See the LINE above it replaces it adding a AND VAL$(a$) < 5
  224.  
  225.  
  226. OK now find the line just a little bit below this that matches this:
  227.  
  228.     u1.videomode = VAL(a$) - 1
  229.  
  230. You MUST  REPLACE that line with this:
  231.  
  232. REM {CONDOR
  233.     u1.videomode = (condor * 10) + ( VAL(a$) - 1 )
  234. REM CONDOR}
  235.  
  236.  
  237. OK below this you will see 3 lines that match this:
  238.     PUT 9, user, u1
  239.     CLOSE 9
  240.     useransi = u1.videomode
  241.  
  242. **REPLACE the LINE that says    useransi = u1.videomode   with this:
  243.  
  244. REM {CONDOR
  245.     useransi = VAL(a$) - 1
  246. REM CONDOR}
  247.  
  248.  
  249. **NOW find this:
  250. u1.ex5 = ""
  251. u1.ex6 = ""
  252. u1.ex7 = ""
  253. u1.ex8 = ""
  254. u1.videomode = useransi
  255.  
  256. REPLACE the line that says:  u1.videomode = useransi
  257. WITH this:
  258.  
  259. REM {CONDOR
  260. u1.videomode = ( condor * 10 ) + useransi
  261. REM CONDOR}
  262.  
  263.  
  264. FINALLY we are finished with VBBS6.BAS  SAVE it.
  265. #########################################################################
  266.  
  267. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  268. Phase 5> LOAD up the file VC2.BAS
  269.               -------
  270. FIND this:
  271.  
  272. SUB menu2 (file$)
  273. f$ = systxtp$ + file$ + ".MNU"
  274.  
  275. DIRECTLY below that  ADD this chunk of code:
  276.  
  277. REM {CONDOR  ** Look for filename.CDx if(condor found)
  278. cause = u1.page
  279. IF condor THEN
  280.   f$ = systxtp$ + file$ + ".CD" + CHR$(condor)
  281.   pagebrk = 0
  282.   pagesize = 0
  283.   sv$(77) = num1$(pagebrk)
  284.   chkfile f$, g&
  285.   IF g& <= 0 THEN
  286.     f$ = systxtp$ + file$ + ".MNU"
  287.   END IF
  288. END IF
  289. REM CONDOR}
  290.  
  291. **Now just a little bit farther down find this:
  292.  
  293.      IF brkf THEN EXIT DO
  294.   LOOP
  295.   CLOSE 1
  296.   ansic 0
  297.  
  298. DIRECTLY below the line with ansic 0   ADD this code block:
  299.  
  300. REM {CONDOR
  301.   pagebrk = cause
  302.   pagesize = cause
  303.   sv$(77) = num1$(cause)
  304. REM CONDOR}
  305.  
  306.  
  307.  
  308. **OK in the   SUB upuser     FIND the line:
  309.  
  310. useransi = u1.videomode
  311.  
  312. REPLACE that line with this chunk of code:
  313.  
  314. REM {CONDOR
  315. condor = u1.videomode / 10
  316. useransi = (u1.videomode - (condor * 10))
  317. REM CONDOR}
  318.  
  319.  
  320. **** OK that's all we do to VC2.BAS  SAVE it!
  321.  
  322. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  323.  
  324. ---------------------------------------------------------------------
  325. Phase 6>
  326.   NOW type MAKEVBBS from the DOS command line and compile and link
  327.   it, then take the .EXEs made and stick 'em in your VBBS directory.
  328.  
  329.  
  330.  
  331.  
  332. DISCLAIMER:
  333.  This mod is working fine for me but you do this
  334.  at your own risk.  You assume ALL risks involved from the
  335.  use of this mod.
  336. ---------------------------------------------------------------------